<?php
  require_once $_SERVER['DOCUMENT_ROOT'] . '/proyecto/clases/autoload.inc.php';
  require_once ($_SERVER['DOCUMENT_ROOT'] .'/proyecto/modulos/informes/config/lang/eng.php');
  require_once ($_SERVER['DOCUMENT_ROOT'] . '/proyecto/modulos/informes/tcpdf.php');
  if (Zen::IniciarSesion())
  {
     $convenios = stripslashes(htmlspecialchars(trim($_GET['convenios'])));
     $examenes = stripslashes(htmlspecialchars(trim($_GET['examenes'])));
     $rs = Zen::Consulta("SELECT  UPPER(ARA.EX_CODIGO) AS CODIGO_EXAMEN, 
	UPPER(EXA.EX_NOMBRE) AS NOMBRE_EXAMEN,
	UPPER(TIA.TIA_NOMBRE) AS TIPO_ATENCION, 
	ARA.ARA_VALOR_EXA_CONV AS VALOR_CONVENIO,
	ARA.ARA_VALOR_EXA_PAC AS VALOR_PACIENTE, 
	ARA.ARA_VALOR_CON_PAC AS VALOR_CONTRASTEM, 
	ARA.ARA_FECHA_ACT AS FECHA_ACTUALIZACION,
	UPPER(CON.CON_NOMBRE) AS NOMBRE_CONVENIO,
	UPPER(TE.TE_NOMBRE) AS TIPO_EXAMEN
		
FROM	ARANCELES AS ARA 
	JOIN CONVENIOS AS CON ON CON.CON_RUT = ARA.CON_RUT
	JOIN EXAMENES AS EXA ON EXA.EX_CODIGO = ARA.EX_CODIGO
	JOIN TIPOS_EXAMEN AS TE ON TE.TE_ID = EXA.TE_ID
	JOIN TIPOS_ATENCION AS TIA ON TIA.TIA_ID = ARA.TIA_ID

WHERE 	UPPER(ARA.CON_RUT) = '$convenios' AND ARA.TIA_ID = '$examenes'");

/**
 * Creates an example PDF TEST document using TCPDF
 * @package com.tecnick.tcpdf
 * @abstract TCPDF - Example: Custom Header and Footer
 * @author Nicola Asuni
 * @copyright 2004-2009 Nicola Asuni - Tecnick.com S.r.l (www.tecnick.com) Via Della Pace, 11 - 09044 - Quartucciu (CA) - ITALY - www.tecnick.com - info@tecnick.com
 * @link http://tcpdf.org
 * @license http://www.gnu.org/copyleft/lesser.html LGPL
 * @since 2008-03-04
 */
class MYPDF extends TCPDF {
	public function Header() {
	    $fecha=date("d-m-Y H:i:s");
		$image_file = K_PATH_IMAGES.'logo.png';
		$this->Image($image_file, 10, 10, 15, '', 'PNG', '', 'T', false, 0, '', false, false, 0, false, false, false);
		$this->SetFont('times', 'B', 8);
        $this->SetXY(25,11);
        $this->Cell( 0, 0, 'Centro de Imagenología S.A.', 0, false, 'L', 0, '', 0, false, 'M', 'M');
        $this->SetXY(25,15);
        $this->Cell( 0, 0, 'Administración y Finanzas', 0, false, 'L', 0, '', 0, false, 'M', 'M');
        $this->SetXY(25,9.5);
        $this->Cell( 0, 0, $fecha, 0, false, 'R', 0, '', 0, false, 'M', 'M');
        $this->SetXY(25,14);
        $this->Cell( 0, 0, $_SESSION['usuario'], 0, false, 'R', 0, '', 0, false, 'M', 'M');
        $this->ln(4.5);
        $this->Cell(276.5, 0, 'Página '.$this->getAliasNumPage().' de '.$this->getAliasNbPages(), 0, false, 'R', 0, '', 0, false, 'T', 'M');
	}
	public function Footer() {
	   $html = <<<EOF
       <hr width="945" />
EOF;
        $this->writeHTML($html, true, false, false, false, '');
	}
}
$pdf = new MYPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);
$pdf->SetCreator(PDF_CREATOR);
$pdf->SetAuthor('Nicola Asuni');
$pdf->SetTitle('TCPDF Example 003');
$pdf->SetSubject('TCPDF Tutorial');
$pdf->SetKeywords('TCPDF, PDF, example, test, guide');
$pdf->SetHeaderData(PDF_HEADER_LOGO, PDF_HEADER_LOGO_WIDTH, PDF_HEADER_TITLE, PDF_HEADER_STRING);
$pdf->setHeaderFont(Array(PDF_FONT_NAME_MAIN, '', PDF_FONT_SIZE_MAIN));
$pdf->setFooterFont(Array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));
$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
$pdf->SetMargins(PDF_MARGIN_LEFT, PDF_MARGIN_TOP, PDF_MARGIN_RIGHT);
$pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
$pdf->SetFooterMargin(PDF_MARGIN_FOOTER);
$pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);
$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
$pdf->setLanguageArray($l);
$pdf->SetFont('times', 'BN', 12);
$pdf->AddPage('L');
$txt = <<<EOD
Aranceles
EOD;
$pdf->SetFont('times', 'B', 14);
$pdf->Write($h=0, $txt, $link='', $fill=0, $align='C', $ln=true, $stretch=0, $firstline=false, $firstblock=false, $maxh=0);
$pdf->SetFont('times', 'U', 10);
$pdf->ln(10);
$pdf->SetFont('times', 'B', 10); 
foreach ($rs as $k => $record){
    $pdf->Cell( 60, 0, 'Convenio:', 0, false, 'R', 0, '', 0, false, 'M', 'M');
    $pdf->SetFont('times', '', 10); 
    $pdf->Cell( 68, 0, $record['nombre_convenio'], 0, false, 'L', 0, '', 0, false, 'M', 'M');
    $pdf->SetFont('times', 'B', 10);
    $pdf->Cell( 60, 0, 'Tipo de Examen:', 0, false, 'R', 0, '', 0, false, 'M', 'M');
    $pdf->SetFont('times', '', 10); 
    $pdf->Cell( 68, 0, $record['tipo_examen'], 0, false, 'L', 0, '', 0, false, 'M', 'M');
    break;    
} 
$pdf->ln(13);
$html = <<<EOF
<hr width="945" />
<br/>
<table>
    <tr>
        <td width="120" align="center"><b>Código Examen</b></td>
        <td width="260" align="center"><b>Nombre Examen</b></td>
        <td width="100" align="center"><b>Tipo Atención</b></td>
        <td width="100" align="center"><b>Valor Convenio</b></td>
        <td width="100" align="center"><b>Valor Paciente</b></td>
        <td width="100" align="center"><b>Valor Contraste</b></td>
        <td width="130" align="center"><b>Fecha Actualización</b></td>
    </tr>
</table>
<hr width="945" />
EOF;
$pdf->writeHTML($html, true, false, false, false, '');
$pdf->SetFont('times', '', 10);
$pdf->ln(5);
foreach ($rs as $k => $record){
    $pdf->Cell( 33.5, 0, $record['codigo_examen'], 0, false, 'R', 0, '', 0, false, 'M', 'M');
    $pdf->Cell( 74, 0, $record['nombre_examen'], 0, false, 'L', 0, '', 0, false, 'M', 'M');
    $pdf->Cell( 28, 0, $record['tipo_atencion'], 0, false, 'L', 0, '', 0, false, 'M', 'M');
    $pdf->Cell( 28, 0, $record['valor_convenio'], 0, false, 'R', 0, '', 0, false, 'M', 'M');
    $pdf->Cell( 28.5, 0, $record['valor_paciente'], 0, false, 'R', 0, '', 0, false, 'M', 'M');
    $pdf->Cell( 28, 0, $record['valor_contrastem'], 0, false, 'R', 0, '', 0, false, 'M', 'M');
    $pdf->Cell( 37, 0, $record['fecha_actualizacion'], 0, false, 'R', 0, '', 0, false, 'M', 'M');
    $pdf->ln(5);        
}
ob_end_clean(); 
$pdf->Output('r25.pdf', 'D');
  }
  else{
     Zen::LogoutModulo();
  }
?>  